The Trig Explorer/The Trig Explorer.iso/mac/Explorer/START.dxr/00088.ls

Text File | 1998-07-22 | 446 b | 20 lines

on mouseUp
  global CalcOn
  if CalcOn = 0 then
    set CalcRect to rect(the stageLeft + 5, the stageTop + 25, the stageLeft + 272 + 5, the stageTop + 400 + 5)
    set Calc to window "Calculator"
    set the rect of Calc to CalcRect
    set the fileName of Calc to "CALC"
    set the windowType of Calc to 5
    set the titleVisible of Calc to 1
    open(Calc)
    set CalcOn to 1
  else
    closeCalc()
  end if
end

on mouseDown
  button()
end